# Carga de paquetes de R
library(dplyr)
library(ggplot2)
library(plotly)
library(DT)
library(sf)
library(terra)
library(raster)
library(leaflet)
# Visualización de datos de felinos en formato tabular
felinos %>%
st_drop_geometry() %>% # se suprime la columna de geometría
dplyr::select(species,
# selección de columnas
eventDate,
stateProvince,
locality,
decimalLongitude,
decimalLatitude) %>%
datatable(
options = list(
pageLength = 5,
# cantidad de registros en una página
language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json') # traducción al español
),
colnames = c(
# encabezados de las columnas
"Especie",
"Fecha",
"Provincia",
"Localidad",
"Longitud",
"Latitud"
)
)
#Graficos
graficos_barras <-
felinos %>%
ggplot(aes(x = species)) +
geom_bar()
ggplotly(graficos_barras)
leaflet() %>%
addTiles() %>%
addCircleMarkers(
data = felinos,
stroke = F,
radius = 4,
fillColor = 'blue',
fillOpacity = 1
)